home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
tools
/
packer
/
objectarchive
/
install-objectarchive
< prev
next >
Wrap
Text File
|
1995-03-09
|
3KB
|
190 lines
; ObjectArchive Installation Script
;=============================================================================
(set @default-dest "SYS:")
(complete 0)
(set #NeedV37
(cat
"ObjectArchive requires AmigaOS 2.0 or higher."
)
)
(set #introduction
(cat
"Your are about to install ObjectArchive and related files into your system.\n"
)
)
(set #AskDocsDest
(cat
"Please select directory where to copy documentations."
)
)
(set #EditStartup
(cat
"Some required commands will be added to your \"s:user-startup\" file."
)
)
;=============================================================================
(set OSVersion (/ (getversion) 65536))
(if (< OSVersion 37)
(abort #NeedV37)
)
(message #introduction)
(set DocsDir
(askdir
(prompt #AskDocsDest)
(help @askdir-help)
(default "SYS:")
)
)
(if (NOT (exists "SYS:Classes" (noreq)))
(
(makedir
"SYS:Classes"
)
(run
"Assign LIBS: SYS:Classes ADD"
)
; Add the Assign command to Startup-sequence
(startup "ObjectArchive"
(prompt #EditStartup)
(help @startup-help)
(command "Assign add LIBS: SYS:Classes\n")
)
))
(if (<> (exists "SYS:Classes/Archives" (noreq)))
(makedir
"SYS:Classes/Archives"
)
)
(if (<> (exists "DEVS:Archives" (noreq)))
(makedir
"DEVS:Archives"
)
)
(if (<> (exists "ENV:Archives" (noreq)))
(makedir
"ENV:Archives"
)
)
(if (<> (exists "ENVARC:Archives" (noreq)))
(makedir
"ENVARC:Archives"
)
)
;========= Libraries ==========
(copylib
(help @copylib-help)
(source "libs/archive.library")
(dest "LIBS:")
)
(copylib
(help @copylib-help)
(source "libs/whatis.library")
(dest "LIBS:")
)
(if (NOT (exists "S:FileTypes" (noreq)))
(copyfiles
(help @copyfiles-help)
(source "S/FileTypes")
(dest "S:")
)
)
;========= Objects ============
(foreach "Classes/Archives" "~(#?.info)"
(copylib
(help @copylib-help)
(source (tackon "Classes/Archives" @each-name))
(dest "SYS:Classes/Archives")
)
)
;======= Archive types ========
(foreach "Devs/Archives" "~(#?.info)"
(copyfiles
(help @copyfiles-help)
(source (tackon "Devs/Archives" @each-name))
(dest "DEVS:Archives")
(infos)
)
)
;============ Env =============
(foreach "Env/Archives" "#?"
(if (<> (exists (tackon "ENV:Archives" @each-name) (noreq)))
(
(copyfiles
(help @copyfiles-help)
(source (tackon "Env/Archives" @each-name))
(dest "ENV:Archives")
)
(copyfiles
(help @copyfiles-help)
(source (tackon "Env/Archives" @each-name))
(dest "ENVARC:Archives")
)
))
)
;========= Commands ===========
(copyfiles
(help @copyfiles-help)
(source "C/AddArchive")
(dest "C:")
)
(copyfiles
(help @copyfiles-help)
(source "C/MountArchive")
(dest "C:")
)
(copyfiles
(help @copyfiles-help)
(source "C/UnMount")
(dest "C:")
)
;============ Docs ============
(foreach "Docs" "#?"
(copyfiles
(help @copyfiles-help)
(source (tackon "Docs" @each-name))
(dest DocsDir)
(infos)
)
)
(if (< OSVersion 39)
(tooltype
(dest (tackon DestDir "Docs/ObjectArchive_User.guide"))
(setdefaulttool "C:AmigaGuide")
)
)
(complete 100)
(exit)